home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #03 (Aug85-Sep85) / Pascal / Pascal Vol. 1 #10 / bugged next >
Text File  |  1985-07-18  |  394b  |  20 lines
  1. program Bugged;
  2.  var
  3.   r : rect;
  4.   left, top, right, bottom : integer;
  5.   icon1, icon2, width : integer;
  6. begin
  7.  left := 10;
  8.  top := 10;
  9.  right := 40;
  10.  bottom := 40;
  11.  width := right - left + 10;
  12.  icon1 := 1;
  13.  icon2 := 257;
  14.  
  15.  showdrawing;
  16.  setrect(r, left, top, right, bottom);
  17.  ploticon(r, geticon(icon1));
  18.  setrect(r, left + width, top, right + width, bottom);
  19.  ploticon(r, geticon(icon2));
  20. end.